home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Tools&Utilities / Studienbuch / Studienbuch / stack_-1.xml < prev    next >
Extensible Markup Language  |  1996-04-17  |  15KB  |  46 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>19</cardCount>
  7.     <cardID>2982</cardID>
  8.     <listID>7899</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><true /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openstackglobal Semester, StudienF√§cher, StudienF√§cherGrundstudium, StudienF√§cherHauptstudium, ¬¨Veranstaltungsarten, letzteKarte, letzteKarteVoreinstellungen, StudienFachKarten, ¬¨enterData, neuerEintragFrage, SWS, SWSgzAbout "√úber Studienbuch..."hide menuBarset cursor to watchlock screenset userlevel to 5if there is a menu "File" thendelete menu "File"end ifif there is a menu "Edit" thendelete menu "Edit"end ifif there is a menu "Go" thendelete menu "Go"end ifif there is a menu "Tools" thendelete menu "Tools"end ifif there is a menu "Objects" thendelete menu "Objects"end ifif there is a menu "Font" thendelete menu "Font"end ifif there is a menu "Style" thendelete menu "Style"end ifset blindTyping to falseset cantPeek of this stack to trueset cantAbort of this stack to trueset the userLevel to 2set the visible of fld "Semester" to falseset the visible of fld "StudienF√§cher" to falseset the visible of fld "StudienF√§cherGrundstudium" to falseset the visible of fld "StudienF√§cherHauptstudium" to falseset the visible of fld "Veranstaltungsarten" to falseset the visible of fld "letzteKarte" to falseset the visible of fld "letzteKarteVoreinstellungen" to falseset the visible of fld "StudienFachKarten" to falseset the visible of fld "SWS" to falseset the visible of fld "SWSgz" to falseput fld "StudienF√§cher" into StudienF√§cherif StudienF√§cher is not empty thenput fld "Semester" into Semesterput fld "StudienF√§cherGrundstudium" into StudienF√§cherGrundstudiumput fld "StudienF√§cherHauptstudium" into StudienF√§cherHauptstudiumput fld "StudienFachKarten" into StudienFachKartenput fld "Veranstaltungsarten" into Veranstaltungsartenput fld "letzteKarte" into letzteKarteput fld "letzteKarteVoreinstellungen" into letzteKarteVoreinstellungenput fld "SWS" into SWSput fld "SWSgz" into SWSgzif fld "letzteKarte" = empty thenput the id of cd 1 of bg "Studium Darstellung" into letzteKarteelseput fld "letzteKarte" into letzteKarteend ifif fld "letzteKarteVoreinstellungen" is empty thenput the id of cd 1 of bg "Studium Voreinstellungen" into letzteKarteVoreinstellungenelseput fld "letzteKarteVoreinstellungen" into letzteKarteVoreinstellungenend ifelse if StudienF√§cher is empty thenput empty into Semesterput the id of cd 1 of bg "Studium Voreinstellungen" into letzteKarteVoreinstellungenput the id of cd 1 of bg "Studium Darstellung" into letzteKarteput fld "Veranstaltungsarten" into Veranstaltungsartenput 0 into SWSput "z" & return & "z" & return & "z" & return & "z" & return & "z" & return ¬¨& "z" & return & "z" & return & "z" & return & "z" & return & "z" into SWSgzend ifput empty into enterDataput 0 into neuerEintragFrageend openstackon closeStackglobal Semester, StudienF√§cher, StudienF√§cherGrundstudium, StudienF√§cherHauptstudium, ¬¨Veranstaltungsarten, letzteKarte, letzteKarteVoreinstellungen, StudienFachKarten, SWS, SWSgzgo first cd of this stackset cursor to watchlock screenput Semester into fld "Semester"put StudienF√§cher into fld "StudienF√§cher"put StudienF√§cherGrundstudium into fld "StudienF√§cherGrundstudium"put StudienF√§cherHauptstudium into fld "StudienF√§cherHauptstudium"put Veranstaltungsarten into fld "Veranstaltungsarten"put letzteKarte into fld "letzteKarte"put letzteKarteVoreinstellungen into fld "letzteKarteVoreinstellungen"put StudienFachKarten into fld "StudienFachKarten"put SWS into fld "SWS"put SWSgz into fld "SWSgz"set itemdelimiter to commadoMenu "Compact Stack"reset menubarAboutend closeStackon doMenu whichput which into xxxif which = "About HyperCard..." thenanswer "Studienbuch"elsepass doMenuend ifend doMenuon keydown Tasteif Taste = "" then -- arrowKey upelse if Taste = "" then -- arrowKey downelsepass keydownend ifend keydownon AbbruchHandlerset cursor to watchlock screengo bg "Studium Darstellung"end AbbruchHandleron Eintragl√∂schenHandleranswer "Diesen Eintrag l√∂schen?" with "Nein." or "Ja."if it is "Ja." thendoMenu "Delete Card"else if it is "Nein." thenend ifend Eintragl√∂schenHandleron EintragHandlerglobal StudienF√§cher, StudienFachKarten, StudienF√§cherGrundstudium, StudienF√§cherHauptstudium, ¬¨StudienFachZeileAktuell, StudienFachA, Veranstaltungsarten, Semester, ¬¨VeranstaltungsNummer, Kursbezeichnung, VeranstaltungsTitel, KurzTitel, Ort, Zeit, ¬¨Dauer, Hinweise, VeranstaltungsLeiter, GrundHauptstudium, neuerEintragFrage, SemesterAnzahl, ¬¨VeranstaltungsTyp, Scheinkurs, letzteKarte, VeranstaltungsNummer_temp, Kursbezeichnung_temp, ¬¨VeranstaltungsTyp_temp, VeranstaltungsTitel_temp, KurzTitel_temp, Ort_temp, Zeit_temp, ¬¨Dauer_temp, Hinweise_temp, VeranstaltungsLeiter_temp, GrundHauptstudium_temp, ¬¨StudienFachZeileAktuell_temp, StudienFachA_temp, SemesterAnzahl_temp, Scheine_nochZiffern_temp, ¬¨optionGlobalset cursor to watchlock screenif optionGlobal is empty thenif the optionKey is down thenput 1 into OptionTasteelseput 0 into OptionTasteend ifelse if optionGlobal = 1 thenput 1 into OptionTasteend ifput 1 into neuerEintragFrage -- ‚Ä¢ wichtig! entscheidet nach dem Eintrag √ºber new Card oder nichtput fld "Dauer" into Dauer_tempput fld "VeranstaltungsNummer" into VeranstaltungsNummer_tempput fld "SemesterAnzahl" into SemesterAnzahl_tempput fld "Kursbezeichnung" into Kursbezeichnung_tempput fld "VeranstaltungsTyp" into VeranstaltungsTyp_tempput fld "VeranstaltungsTitel" into VeranstaltungsTitel_tempput fld "KurzTitel" into KurzTitel_tempput fld "Ort" into Ort_tempput fld "Zeit" into Zeit_tempput fld "Dauer" into Dauer_tempput fld "Hinweise" into Hinweise_tempput fld "VeranstaltungsLeiter" into VeranstaltungsLeiter_tempput fld "GrundHauptstudium" into GrundHauptstudium_tempput StudienFachZeileAktuell into StudienFachZeileAktuell_tempif fld "Scheinkurs" is not empty thenput fld "Scheinkurs" into Scheinkurselseput empty into Scheinkursend ifset itemdelimiter to "$"put item 7 of line StudienFachZeileAktuell of StudienF√§cher into Scheine_nochZiffern_tempif GrundHauptStudium = "Grundstudium" then -- ‚Ä¢ Kurse (Grund-, Haupt- oder Gesamtstudium)put item 5 of line StudienFachZeileAktuell of StudienF√§cher into Kurseelse if GrundHauptStudium = "Hauptstudium" thenput item 6 of line StudienFachZeileAktuell of StudienF√§cher into Kurseelseput item 4 of line StudienFachZeileAktuell of StudienF√§cher into Kurseend ifput empty into KursAuswahlput empty into Scheine_nochput item 7 of line StudienFachZeileAktuell of StudienF√§cher into Scheine_nochZiffernset itemdelimiter to ";"repeat with i=1 to the number of items of Kurse -- ‚Ä¢ Scheine_noch + KurseAuswahl aufbauenif item i of Kurse is not empty thenif item i of Scheine_nochZiffern = 0 thenput item i of Kurse & return after Scheine_nochput item i of Kurse & ";" after KursAuswahlelseput item i of Kurse & space & "[bescheinigt]" & return after Scheine_nochend ifend ifend repeatdelete last char of Scheine_nochgo bg "Studium Eingabe" of this stackput FullReplace(Scheine_noch,"."," oder ") into fld "Scheine_noch"put KursAuswahl into bg button 12if Scheinkurs is not empty thenset the hilite of bg button "Schein" to trueset the name of bg button 12 to Scheinkurselse if Scheinkurs is empty thenset the hilite of bg button "Schein" to falseset the name of bg button 12 to ""end ifif OptionTaste = 1 thenelse if OptionTaste = 0 thenput empty into Dauerset the visible of bg button "std." to falseput empty into Scheinkursset the hilite of bg button "Schein" to falseset the name of bg button 12 to ""put empty into VeranstaltungsNummerput empty into Kursbezeichnungput empty into VeranstaltungsTypput empty into VeranstaltungsTitelput empty into KurzTitelput empty into Ortput empty into Zeitput empty into Dauerput empty into Hinweiseput empty into VeranstaltungsLeiterput empty into GrundHauptstudiumput 0 into StudienFachZeileAktuellend ifset itemdelimiter to "$"if GrundHauptstudium = "Grundstudium" thenset the hilite of bg button "Grundstudium" to trueset the hilite of bg button "Hauptstudium" to falseput StudienF√§cherGrundstudium into bg button "EingabeStudienFach"select line StudienFachZeileAktuell of bg button "EingabeStudienFach"else if GrundHauptstudium = "Hauptstudium" thenset the hilite of bg button "Grundstudium" to falseset the hilite of bg button "Hauptstudium" to trueput StudienF√§cherHauptstudium into bg button "EingabeStudienFach"select line StudienFachZeileAktuell of bg button "EingabeStudienFach"else if GrundHauptstudium is empty thenset the hilite of bg button "Grundstudium" to falseset the hilite of bg button "Hauptstudium" to falseput StudienFachKarten into bg button "EingabeStudienFach"select line StudienFachZeileAktuell of bg button "EingabeStudienFach"end ifput Semester into bg button "EingabeSemester"select line SemesterAnzahl of bg button "EingabeSemester"put VeranstaltungsNummer into fld "EingabeVeranstaltungsNummer"put Kursbezeichnung into fld "EingabeKursbezeichnung"put 0 into VeranstaltungsKontrolleput Veranstaltungsarten into bg button "EingabeVeranstaltungsTyp"repeat with i=1 to the number of lines of Veranstaltungsartenif line i of Veranstaltungsarten = VeranstaltungsTyp thenselect line i of bg button "EingabeVeranstaltungsTyp"put 1 into VeranstaltungsKontrolleexit repeatend ifend repeatif VeranstaltungsKontrolle = 0 thenanswer "Der angegebene Veranstaltungstyp dieser Veranstaltung ist nicht unter den Veranstaltungsarten aufgef√ºhrt. Wird hinzugef√ºgt..."put VeranstaltungsTyp & return after Veranstaltungsartenput Veranstaltungsarten into bg button "EingabeVeranstaltungsTyp"select line (the number of lines of bg button "EingabeVeranstaltungsTyp") of bg button "EingabeVeranstaltungsTyp"end ifput Hinweise into fld "EingabeHinweise"put VeranstaltungsTitel into fld "EingabeVeranstaltungsTitel"put KurzTitel into fld "EingabeKurzTitel"put Ort into fld "EingabeOrt"put Zeit into fld "EingabeZeit"put Dauer into fld "EingabeDauer"put VeranstaltungsLeiter into fld "EingabeVeranstaltungsLeiter"put empty into optionGlobalend EintragHandler-- FullReplace 1.1-- by Fr√©d√©ric RINALDI-- DESCRIPTION-- FullReplace allows to strip or replace a string in a text.-- SYNTAX-- FullReplace (<input>,<search pattern>[,<replace pattern>-- [,<all>[,<offset>]]])-- PARAMETERS-- Parameters 3 to 5 are optionals.-- <input> is the text that will be parsed.-- <search pattern> is the string to search for.-- <replace pattern>  is the replacement string to search for. It may be empty.-- <all> is a boolean, telling if all matches (true) must be handled, or only the first one (false). Default is true.-- <offset> is the char number at which the search will begin. Default is 1.-- Using "!" and "?" returns online help (resp. about and syntax).-- USING-- FullReplace will return the input text, once replacement done. Pattern searching is not cas sensitive.-- ERRORS-- If an error occurs, FullReplace will return :-- "Error : Missing parameter(s)"-- "Error : Param #4 must be boolean"-- "Error : Param #5 must be > 0"-- HISTORY-- 1.1         02/23/92-- ‚Ä¢ Search no more limited to 32000 chars-- ---------------------------------------------------------------------- All externals included in this stack are FreeWare and may be used in non-commercial software provided the following notice is visibly present :-- FullReplace XFCN, ¬© Frederic Rinaldi, 1989‚Ķ1993.-- Free for non-commercial use. Use in commercial software subjected to prior acknowledgement and licensing from the author, reachable at the following network addresses:-- AppleLink: RINALDI1   CalvaCom : FR10    Compuserve : 71170,2111-- Internet : RINALDI1@APPLELINK@APPLE.COM</script>
  17.     <background id="2051" file="background_2051.xml" name="Studium Wochenplan" />
  18.     <background id="2781" file="background_2781.xml" name="Studium Start" />
  19.     <background id="4582" file="background_4582.xml" name="Studium Voreinstellungen" />
  20.     <background id="8026" file="background_8026.xml" name="Studium Auswertung" />
  21.     <background id="8686" file="background_8686.xml" name="Studium Liste" />
  22.     <background id="9174" file="background_9174.xml" name="Studium Export" />
  23.     <background id="9500" file="background_9500.xml" name="Studium Import" />
  24.     <background id="10216" file="background_10216.xml" name="Studium Eingabe" />
  25.     <background id="10727" file="background_10727.xml" name="Studium Darstellung" />
  26.     <card id="2982" file="card_2982.xml" marked="false" name="" owner="2781" />
  27.     <card id="4726" file="card_4726.xml" marked="false" name="StudienF√§cher" owner="4582" />
  28.     <card id="4898" file="card_4898.xml" marked="false" name="" owner="4582" />
  29.     <card id="5289" file="card_5289.xml" marked="false" name="kkk/kkk" owner="4582" />
  30.     <card id="5428" file="card_5428.xml" marked="false" name="kkk" owner="4582" />
  31.     <card id="5690" file="card_5690.xml" marked="false" name="test1/[???]" owner="4582" />
  32.     <card id="5999" file="card_5999.xml" marked="false" name="" owner="4582" />
  33.     <card id="6249" file="card_6249.xml" marked="false" name="" owner="4582" />
  34.     <card id="6568" file="card_6568.xml" marked="false" name="" owner="4582" />
  35.     <card id="6885" file="card_6885.xml" marked="false" name="" owner="4582" />
  36.     <card id="6974" file="card_6974.xml" marked="false" name="" owner="4582" />
  37.     <card id="7240" file="card_7240.xml" marked="false" name="0" owner="4582" />
  38.     <card id="2559" file="card_2559.xml" marked="false" name="" owner="2051" />
  39.     <card id="8353" file="card_8353.xml" marked="false" name="" owner="8026" />
  40.     <card id="8905" file="card_8905.xml" marked="false" name="" owner="8686" />
  41.     <card id="9262" file="card_9262.xml" marked="false" name="" owner="9174" />
  42.     <card id="9930" file="card_9930.xml" marked="false" name="" owner="9500" />
  43.     <card id="10339" file="card_10339.xml" marked="false" name="" owner="10216" />
  44.     <card id="38754" file="card_38754.xml" marked="false" name="‚Ä¢  (keine Semesterangabe)" owner="10727" />
  45. </stack>
  46.